VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarCaption As String 'local copy
Private mvarStyle As Integer 'local copy
Private mvarTag As String 'local copy
Private mvarToolTipText As String 'local copy
Private mvarBitmap As Object 'local copy
Private mvarVisible As Integer 'local copy
Private mvarEnabled As Integer 'local copy
'local variable(s) to hold property value(s)
Private mvarDropDown As Integer 'local copy
Private mvarLeft As Integer

Public Property Let DropDown(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.DropDown = 5
    mvarDropDown = vData
End Property


Public Property Get DropDown() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DropDown
    DropDown = mvarDropDown
End Property



Public Property Let Enabled(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Enabled = 5
    mvarEnabled = vData
End Property

Public Property Get Enabled() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Enabled
    Enabled = mvarEnabled
End Property

Public Property Let Visible(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Visible = 5
    mvarVisible = vData
End Property

Public Property Get Visible() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Visible
    Visible = mvarVisible
End Property



Public Property Set Bitmap(ByVal vData As Object)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.Bitmap = Form1
    Set mvarBitmap = vData
End Property


Public Property Get Bitmap() As Object
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Bitmap
    Set Bitmap = mvarBitmap
End Property



Public Property Let ToolTipText(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ToolTipText = 5
    mvarToolTipText = vData
End Property


Public Property Get ToolTipText() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ToolTipText
    ToolTipText = mvarToolTipText
End Property



Public Property Let Tag(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Tag = 5
    mvarTag = vData
End Property


Public Property Get Tag() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Tag
    Tag = mvarTag
End Property



Public Property Let Style(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Style = 5
    mvarStyle = vData
End Property


Public Property Get Style() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Style
    Style = mvarStyle
End Property

Public Property Let Caption(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Caption = 5
    mvarCaption = vData
End Property

Public Property Get Caption() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Caption
    Caption = mvarCaption
End Property

Public Property Let Left(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Style = 5
    mvarLeft = vData
End Property


Public Property Get Left() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Style
    Left = mvarLeft
End Property
